dabout:
-------
// Um unntige Exceptions zu vermeiden
procedure TDlgAbout.FormCreate(Sender: TObject);
Var t: Textfile; ok: boolean; s, Bez: String;
begin
   ...
   Bez := PATH_BASE + TabSheet5.caption;
   If FileExists(Bez) then try
   ^^^^^^^^^^^^^^^^^^
